#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
inherit GDD_Navigator_CFC CommonFC

#___________________________________________________________________________________________________________________________________________
method GDD_Navigator_CFC constructor {{mark 0}} {
 set this(current_node) {}
 set this(current_rel)  {}
 set this(mode)         {}
 set this(root)         {}
 set this(GDD_DSL)      {}
}

#___________________________________________________________________________________________________________________________________________
method GDD_Navigator_CFC destructor {} {this inherited}

#___________________________________________________________________________________________________________________________________________
Generate_accessors GDD_Navigator_CFC [list current_node current_rel mode GDD_DSL root]

#________________________________________________________________________________________________________________________________________
method GDD_Navigator_CFC set_current_node {n} {set this(current_node) $n; set this(current_rel) {}}

#________________________________________________________________________________________________________________________________________
method GDD_Navigator_CFC set_current_rel  {r} {set this(current_node) {}; set this(current_rel) $r}

#________________________________________________________________________________________________________________________________________
proc L_methodes_get_GDD_Navigator {} {return [list {get_mode { }} {get_current_node { }} {get_current_rel { }} {get_GDD_DSL { }} {get_root { }} ] }
proc L_methodes_set_GDD_Navigator {} {return [list {set_mode {n}} {set_current_node {n}} {set_current_rel {r}} {set_GDD_DSL {d}} {set_root {r}} ] }

